Imports System.Data.SqlClient
Public Class cls_ensayo03_

    Implements ICloneable

#Region "Variables ..."
    Private int_idensayo03 As Integer = 0
    Private int_idensayotipo As Integer = 0
    Private int_idensayosubtipo As Integer = 0
    Private str_numero As String = ""
    Private dte_fecha As DateTime = New System.DateTime(Now.Year, 1, 1)
    Private int_idcliente As Integer = 0
    Private int_idcentrocostoorden As Integer = 0
    Private int_idequipo As Integer = 0
    Private int_idcomponenteensayar As Integer = 0
    Private str_identificacion As String = ""
    Private str_procedimiento As String = ""
    Private int_idnorma As Integer = 0
    Private int_idcriterio As Integer = 0
    Private int_idequipoEND As Integer = 0
    Private str_equipoENDserie As String = ""
    Private str_Cposicion1 As String = ""
    Private str_Cidentificacion1 As String = ""
    Private str_Cserie1 As String = ""
    Private int_Cfrecuencia1 As Integer = 0
    Private str_Ctamaño1 As String = ""
    Private str_Ctipolargocaño1 As String = ""
    Private int_Cidacoplante1 As Integer = 0
    Private int_Czona1 As Integer = 0
    Private bit_Czonico1 As Boolean = False
    Private int_Cidevaluacionmetodo1 As Integer = 0
    Private str_Cbloquecalibracion1 As String = ""
    Private str_Creflector1 As String = ""
    Private int_Ccorreciontransferencia1 As Integer = 0
    Private str_Cnivelcurvaregistro1 As String = ""
    Private int_CS1 As Integer = 0
    Private int_Cdelta1 As Integer = 0
    Private str_Cposicion2 As String = ""
    Private str_Cidentificacion2 As String = ""
    Private str_Cserie2 As String = ""
    Private int_Cfrecuencia2 As Integer = 0
    Private str_Ctamaño2 As String = ""
    Private str_Ctipolargocaño2 As String = ""
    Private int_Cidacoplante2 As Integer = 0
    Private int_Czona2 As Integer = 0
    Private bit_Czonico2 As Boolean = False
    Private int_Cidevaluacionmetodo2 As Integer = 0
    Private str_Cbloquecalibracion2 As String = ""
    Private str_Creflector2 As String = ""
    Private int_Ccorreciontransferencia2 As Integer = 0
    Private str_Cnivelcurvaregistro2 As String = ""
    Private int_CS2 As Integer = 0
    Private int_Cdelta2 As Integer = 0
    Private str_Cposicion3 As String = ""
    Private str_Cidentificacion3 As String = ""
    Private str_Cserie3 As String = ""
    Private int_Cfrecuencia3 As Integer = 0
    Private str_Ctamaño3 As String = ""
    Private str_Ctipolargocaño3 As String = ""
    Private int_Cidacoplante3 As Integer = 0
    Private int_Czona3 As Integer = 0
    Private bit_Czonico3 As Boolean = False
    Private int_Cidevaluacionmetodo3 As Integer = 0
    Private str_Cbloquecalibracion3 As String = ""
    Private str_Creflector3 As String = ""
    Private int_Ccorreciontransferencia3 As Integer = 0
    Private str_Cnivelcurvaregistro3 As String = ""
    Private int_CS3 As Integer = 0
    Private int_Cdelta3 As Integer = 0
    Private int_nindicacion As Integer = 0
    Private str_palpador As String = ""
    Private int_palpadorposicion As Integer = 0
    Private int_sonico As Integer = 0
    Private int_x As Integer = 0
    Private int_y As Integer = 0
    Private int_z As Integer = 0
    Private bit_longitud As Boolean = False
    Private bit_transversal As Boolean = False
    Private bit_superficieplana As Boolean = False
    Private int_exesonivelregistro As Integer = 0
    Private int_registrolongitud As Integer = 0
    Private int_resultado As Integer = 0
    Private img_croquis As Image = Nothing
    Private str_croquisnotas As String = ""
    Private str_notas As String = ""
    Private int_informeestado As Integer = 0
    Private int_idregistro As Integer = 0
    Private int_idevaluador As Integer = 0
    Private int_idinspector As Integer = 0
    Private dte_evaluadorfecha As DateTime = New System.DateTime(Now.Year, 1, 1)
    Private dte_inspectorfecha As DateTime = New System.DateTime(Now.Year, 1, 1)
    Private int_idusuariorealizado As Integer = 0
    Private int_idusuarioingresado As Integer = 0

    Private obj_ensayotipo As cls_ensayotipo_ = Nothing
    Private obj_ensayosubtipo As cls_ensayosubtipo_
    Private obj_cliente As cls_cliente_
    Private obj_centrocostoorden As cls_centrocostoorden_
    Private obj_equipo As cls_equipo_
    Private obj_componenteensayar As cls_componenteensayar_
    Private obj_norma As cls_criterionorma_
    Private obj_criterio As cls_criterionorma_
    Private obj_evaluador As cls_personal_
    Private obj_inspector As cls_personal_
    Private obj_usuariorealizado As cls_usuario_
    Private obj_usuarioingresado As cls_usuario_

    Private obj_registro As cls_registro_ = Nothing
    Private col_Items As Collections.Generic.List(Of cls_ensayo03_) = Nothing

    Public Overrides Function ToString() As String
        Return numero
    End Function
#End Region

#Region "Propiedades ..."
    Property idensayo03() As Integer
        Get
            idensayo03 = int_idensayo03
        End Get
        Set(ByVal value As Integer)
            int_idensayo03 = value
        End Set
    End Property
    Property idensayotipo() As Integer
        Get
            idensayotipo = int_idensayotipo
        End Get
        Set(ByVal value As Integer)
            int_idensayotipo = value
        End Set
    End Property
    Property idensayosubtipo() As Integer
        Get
            idensayosubtipo = int_idensayosubtipo
        End Get
        Set(ByVal value As Integer)
            int_idensayosubtipo = value
        End Set
    End Property
    Property numero() As String
        Get
            numero = str_numero
        End Get
        Set(ByVal value As String)
            str_numero = value
        End Set
    End Property
    Property fecha() As DateTime
        Get
            fecha = dte_fecha
        End Get
        Set(ByVal value As DateTime)
            dte_fecha = value
        End Set
    End Property
    Property idcliente() As Integer
        Get
            idcliente = int_idcliente
        End Get
        Set(ByVal value As Integer)
            int_idcliente = value
        End Set
    End Property
    Property idcentrocostoorden() As Integer
        Get
            idcentrocostoorden = int_idcentrocostoorden
        End Get
        Set(ByVal value As Integer)
            int_idcentrocostoorden = value
        End Set
    End Property
    Property idequipo() As Integer
        Get
            idequipo = int_idequipo
        End Get
        Set(ByVal value As Integer)
            int_idequipo = value
        End Set
    End Property
    Property idcomponenteensayar() As Integer
        Get
            idcomponenteensayar = int_idcomponenteensayar
        End Get
        Set(ByVal value As Integer)
            int_idcomponenteensayar = value
        End Set
    End Property
    Property identificacion() As String
        Get
            identificacion = str_identificacion
        End Get
        Set(ByVal value As String)
            str_identificacion = value
        End Set
    End Property
    Property procedimiento() As String
        Get
            procedimiento = str_procedimiento
        End Get
        Set(ByVal value As String)
            str_procedimiento = value
        End Set
    End Property
    Property idnorma() As Integer
        Get
            idnorma = int_idnorma
        End Get
        Set(ByVal value As Integer)
            int_idnorma = value
        End Set
    End Property
    Property idcriterio() As Integer
        Get
            idcriterio = int_idcriterio
        End Get
        Set(ByVal value As Integer)
            int_idcriterio = value
        End Set
    End Property
    Property idequipoEND() As Integer
        Get
            idequipoEND = int_idequipoEND
        End Get
        Set(ByVal value As Integer)
            int_idequipoEND = value
        End Set
    End Property
    Property equipoENDserie() As String
        Get
            equipoENDserie = str_equipoENDserie
        End Get
        Set(ByVal value As String)
            str_equipoENDserie = value
        End Set
    End Property
    Property Cposicion1() As String
        Get
            Cposicion1 = str_Cposicion1
        End Get
        Set(ByVal value As String)
            str_Cposicion1 = value
        End Set
    End Property
    Property Cidentificacion1() As String
        Get
            Cidentificacion1 = str_Cidentificacion1
        End Get
        Set(ByVal value As String)
            str_Cidentificacion1 = value
        End Set
    End Property
    Property Cserie1() As String
        Get
            Cserie1 = str_Cserie1
        End Get
        Set(ByVal value As String)
            str_Cserie1 = value
        End Set
    End Property
    Property Cfrecuencia1() As Integer
        Get
            Cfrecuencia1 = int_Cfrecuencia1
        End Get
        Set(ByVal value As Integer)
            int_Cfrecuencia1 = value
        End Set
    End Property
    Property Ctamaño1() As String
        Get
            Ctamaño1 = str_Ctamaño1
        End Get
        Set(ByVal value As String)
            str_Ctamaño1 = value
        End Set
    End Property
    Property Ctipolargocaño1() As String
        Get
            Ctipolargocaño1 = str_Ctipolargocaño1
        End Get
        Set(ByVal value As String)
            str_Ctipolargocaño1 = value
        End Set
    End Property
    Property Cidacoplante1() As Integer
        Get
            Cidacoplante1 = int_Cidacoplante1
        End Get
        Set(ByVal value As Integer)
            int_Cidacoplante1 = value
        End Set
    End Property
    Property Czona1() As Integer
        Get
            Czona1 = int_Czona1
        End Get
        Set(ByVal value As Integer)
            int_Czona1 = value
        End Set
    End Property
    Property Czonico1() As Boolean
        Get
            Czonico1 = bit_Czonico1
        End Get
        Set(ByVal value As Boolean)
            bit_Czonico1 = value
        End Set
    End Property
    Property Cidevaluacionmetodo1() As Integer
        Get
            Cidevaluacionmetodo1 = int_Cidevaluacionmetodo1
        End Get
        Set(ByVal value As Integer)
            int_Cidevaluacionmetodo1 = value
        End Set
    End Property
    Property Cbloquecalibracion1() As String
        Get
            Cbloquecalibracion1 = str_Cbloquecalibracion1
        End Get
        Set(ByVal value As String)
            str_Cbloquecalibracion1 = value
        End Set
    End Property
    Property Creflector1() As String
        Get
            Creflector1 = str_Creflector1
        End Get
        Set(ByVal value As String)
            str_Creflector1 = value
        End Set
    End Property
    Property Ccorreciontransferencia1() As Integer
        Get
            Ccorreciontransferencia1 = int_Ccorreciontransferencia1
        End Get
        Set(ByVal value As Integer)
            int_Ccorreciontransferencia1 = value
        End Set
    End Property
    Property Cnivelcurvaregistro1() As String
        Get
            Cnivelcurvaregistro1 = str_Cnivelcurvaregistro1
        End Get
        Set(ByVal value As String)
            str_Cnivelcurvaregistro1 = value
        End Set
    End Property
    Property CS1() As Integer
        Get
            CS1 = int_CS1
        End Get
        Set(ByVal value As Integer)
            int_CS1 = value
        End Set
    End Property
    Property Cdelta1() As Integer
        Get
            Cdelta1 = int_Cdelta1
        End Get
        Set(ByVal value As Integer)
            int_Cdelta1 = value
        End Set
    End Property
    Property Cposicion2() As String
        Get
            Cposicion2 = str_Cposicion2
        End Get
        Set(ByVal value As String)
            str_Cposicion2 = value
        End Set
    End Property
    Property Cidentificacion2() As String
        Get
            Cidentificacion2 = str_Cidentificacion2
        End Get
        Set(ByVal value As String)
            str_Cidentificacion2 = value
        End Set
    End Property
    Property Cserie2() As String
        Get
            Cserie2 = str_Cserie2
        End Get
        Set(ByVal value As String)
            str_Cserie2 = value
        End Set
    End Property
    Property Cfrecuencia2() As Integer
        Get
            Cfrecuencia2 = int_Cfrecuencia2
        End Get
        Set(ByVal value As Integer)
            int_Cfrecuencia2 = value
        End Set
    End Property
    Property Ctamaño2() As String
        Get
            Ctamaño2 = str_Ctamaño2
        End Get
        Set(ByVal value As String)
            str_Ctamaño2 = value
        End Set
    End Property
    Property Ctipolargocaño2() As String
        Get
            Ctipolargocaño2 = str_Ctipolargocaño2
        End Get
        Set(ByVal value As String)
            str_Ctipolargocaño2 = value
        End Set
    End Property
    Property Cidacoplante2() As Integer
        Get
            Cidacoplante2 = int_Cidacoplante2
        End Get
        Set(ByVal value As Integer)
            int_Cidacoplante2 = value
        End Set
    End Property
    Property Czona2() As Integer
        Get
            Czona2 = int_Czona2
        End Get
        Set(ByVal value As Integer)
            int_Czona2 = value
        End Set
    End Property
    Property Czonico2() As Boolean
        Get
            Czonico2 = bit_Czonico2
        End Get
        Set(ByVal value As Boolean)
            bit_Czonico2 = value
        End Set
    End Property
    Property Cidevaluacionmetodo2() As Integer
        Get
            Cidevaluacionmetodo2 = int_Cidevaluacionmetodo2
        End Get
        Set(ByVal value As Integer)
            int_Cidevaluacionmetodo2 = value
        End Set
    End Property
    Property Cbloquecalibracion2() As String
        Get
            Cbloquecalibracion2 = str_Cbloquecalibracion2
        End Get
        Set(ByVal value As String)
            str_Cbloquecalibracion2 = value
        End Set
    End Property
    Property Creflector2() As String
        Get
            Creflector2 = str_Creflector2
        End Get
        Set(ByVal value As String)
            str_Creflector2 = value
        End Set
    End Property
    Property Ccorreciontransferencia2() As Integer
        Get
            Ccorreciontransferencia2 = int_Ccorreciontransferencia2
        End Get
        Set(ByVal value As Integer)
            int_Ccorreciontransferencia2 = value
        End Set
    End Property
    Property Cnivelcurvaregistro2() As String
        Get
            Cnivelcurvaregistro2 = str_Cnivelcurvaregistro2
        End Get
        Set(ByVal value As String)
            str_Cnivelcurvaregistro2 = value
        End Set
    End Property
    Property CS2() As Integer
        Get
            CS2 = int_CS2
        End Get
        Set(ByVal value As Integer)
            int_CS2 = value
        End Set
    End Property
    Property Cdelta2() As Integer
        Get
            Cdelta2 = int_Cdelta2
        End Get
        Set(ByVal value As Integer)
            int_Cdelta2 = value
        End Set
    End Property
    Property Cposicion3() As String
        Get
            Cposicion3 = str_Cposicion3
        End Get
        Set(ByVal value As String)
            str_Cposicion3 = value
        End Set
    End Property
    Property Cidentificacion3() As String
        Get
            Cidentificacion3 = str_Cidentificacion3
        End Get
        Set(ByVal value As String)
            str_Cidentificacion3 = value
        End Set
    End Property
    Property Cserie3() As String
        Get
            Cserie3 = str_Cserie3
        End Get
        Set(ByVal value As String)
            str_Cserie3 = value
        End Set
    End Property
    Property Cfrecuencia3() As Integer
        Get
            Cfrecuencia3 = int_Cfrecuencia3
        End Get
        Set(ByVal value As Integer)
            int_Cfrecuencia3 = value
        End Set
    End Property
    Property Ctamaño3() As String
        Get
            Ctamaño3 = str_Ctamaño3
        End Get
        Set(ByVal value As String)
            str_Ctamaño3 = value
        End Set
    End Property
    Property Ctipolargocaño3() As String
        Get
            Ctipolargocaño3 = str_Ctipolargocaño3
        End Get
        Set(ByVal value As String)
            str_Ctipolargocaño3 = value
        End Set
    End Property
    Property Cidacoplante3() As Integer
        Get
            Cidacoplante3 = int_Cidacoplante3
        End Get
        Set(ByVal value As Integer)
            int_Cidacoplante3 = value
        End Set
    End Property
    Property Czona3() As Integer
        Get
            Czona3 = int_Czona3
        End Get
        Set(ByVal value As Integer)
            int_Czona3 = value
        End Set
    End Property
    Property Czonico3() As Boolean
        Get
            Czonico3 = bit_Czonico3
        End Get
        Set(ByVal value As Boolean)
            bit_Czonico3 = value
        End Set
    End Property
    Property Cidevaluacionmetodo3() As Integer
        Get
            Cidevaluacionmetodo3 = int_Cidevaluacionmetodo3
        End Get
        Set(ByVal value As Integer)
            int_Cidevaluacionmetodo3 = value
        End Set
    End Property
    Property Cbloquecalibracion3() As String
        Get
            Cbloquecalibracion3 = str_Cbloquecalibracion3
        End Get
        Set(ByVal value As String)
            str_Cbloquecalibracion3 = value
        End Set
    End Property
    Property Creflector3() As String
        Get
            Creflector3 = str_Creflector3
        End Get
        Set(ByVal value As String)
            str_Creflector3 = value
        End Set
    End Property
    Property Ccorreciontransferencia3() As Integer
        Get
            Ccorreciontransferencia3 = int_Ccorreciontransferencia3
        End Get
        Set(ByVal value As Integer)
            int_Ccorreciontransferencia3 = value
        End Set
    End Property
    Property Cnivelcurvaregistro3() As String
        Get
            Cnivelcurvaregistro3 = str_Cnivelcurvaregistro3
        End Get
        Set(ByVal value As String)
            str_Cnivelcurvaregistro3 = value
        End Set
    End Property
    Property CS3() As Integer
        Get
            CS3 = int_CS3
        End Get
        Set(ByVal value As Integer)
            int_CS3 = value
        End Set
    End Property
    Property Cdelta3() As Integer
        Get
            Cdelta3 = int_Cdelta3
        End Get
        Set(ByVal value As Integer)
            int_Cdelta3 = value
        End Set
    End Property
    Property nindicacion() As Integer
        Get
            nindicacion = int_nindicacion
        End Get
        Set(ByVal value As Integer)
            int_nindicacion = value
        End Set
    End Property
    Property palpador() As String
        Get
            palpador = str_palpador
        End Get
        Set(ByVal value As String)
            str_palpador = value
        End Set
    End Property
    Property palpadorposicion() As Integer
        Get
            palpadorposicion = int_palpadorposicion
        End Get
        Set(ByVal value As Integer)
            int_palpadorposicion = value
        End Set
    End Property
    Property sonico() As Integer
        Get
            sonico = int_sonico
        End Get
        Set(ByVal value As Integer)
            int_sonico = value
        End Set
    End Property
    Property x() As Integer
        Get
            x = int_x
        End Get
        Set(ByVal value As Integer)
            int_x = value
        End Set
    End Property
    Property y() As Integer
        Get
            y = int_y
        End Get
        Set(ByVal value As Integer)
            int_y = value
        End Set
    End Property
    Property z() As Integer
        Get
            z = int_z
        End Get
        Set(ByVal value As Integer)
            int_z = value
        End Set
    End Property
    Property longitud() As Boolean
        Get
            longitud = bit_longitud
        End Get
        Set(ByVal value As Boolean)
            bit_longitud = value
        End Set
    End Property
    Property transversal() As Boolean
        Get
            transversal = bit_transversal
        End Get
        Set(ByVal value As Boolean)
            bit_transversal = value
        End Set
    End Property
    Property superficieplana() As Boolean
        Get
            superficieplana = bit_superficieplana
        End Get
        Set(ByVal value As Boolean)
            bit_superficieplana = value
        End Set
    End Property
    Property exesonivelregistro() As Integer
        Get
            exesonivelregistro = int_exesonivelregistro
        End Get
        Set(ByVal value As Integer)
            int_exesonivelregistro = value
        End Set
    End Property
    Property registrolongitud() As Integer
        Get
            registrolongitud = int_registrolongitud
        End Get
        Set(ByVal value As Integer)
            int_registrolongitud = value
        End Set
    End Property
    Property resultado() As Integer
        Get
            resultado = int_resultado
        End Get
        Set(ByVal value As Integer)
            int_resultado = value
        End Set
    End Property
    Property croquis() As Image
        Get
            croquis = img_croquis
        End Get
        Set(ByVal value As Image)
            img_croquis = value
        End Set
    End Property
    Property croquisnotas() As String
        Get
            croquisnotas = str_croquisnotas
        End Get
        Set(ByVal value As String)
            str_croquisnotas = value
        End Set
    End Property
    Property notas() As String
        Get
            notas = str_notas
        End Get
        Set(ByVal value As String)
            str_notas = value
        End Set
    End Property
    Property informeestado() As Integer
        Get
            informeestado = int_informeestado
        End Get
        Set(ByVal value As Integer)
            int_informeestado = value
        End Set
    End Property
    Property idregistro() As Integer
        Get
            idregistro = int_idregistro
        End Get
        Set(ByVal value As Integer)
            int_idregistro = value
        End Set
    End Property
    Property idevaluador() As Integer
        Get
            idevaluador = int_idevaluador
        End Get
        Set(ByVal value As Integer)
            int_idevaluador = value
        End Set
    End Property
    Property idinspector() As Integer
        Get
            idinspector = int_idinspector
        End Get
        Set(ByVal value As Integer)
            int_idinspector = value
        End Set
    End Property
    Property evaluadorfecha() As DateTime
        Get
            evaluadorfecha = dte_evaluadorfecha
        End Get
        Set(ByVal value As DateTime)
            dte_evaluadorfecha = value
        End Set
    End Property
    Property inspectorfecha() As DateTime
        Get
            inspectorfecha = dte_inspectorfecha
        End Get
        Set(ByVal value As DateTime)
            dte_inspectorfecha = value
        End Set
    End Property
    Property idusuariorealizado() As Integer
        Get
            idusuariorealizado = int_idusuariorealizado
        End Get
        Set(ByVal value As Integer)
            int_idusuariorealizado = value
        End Set
    End Property
    Property idusuarioingresado() As Integer
        Get
            idusuarioingresado = int_idusuarioingresado
        End Get
        Set(ByVal value As Integer)
            int_idusuarioingresado = value
        End Set
    End Property

    Property ensayotipo() As cls_ensayotipo_
        Get
            If IsNothing(obj_ensayotipo) Then
                obj_ensayotipo = New cls_ensayotipo_
                If Not obj_ensayotipo.Buscar(idensayotipo) Then
                    obj_ensayotipo = Nothing
                End If
            End If
            ensayotipo = obj_ensayotipo
        End Get
        Set(ByVal value As cls_ensayotipo_)
            obj_ensayotipo = value
        End Set
    End Property

    Property ensayosubtipo() As cls_ensayosubtipo_
        Get
            If IsNothing(obj_ensayosubtipo) Then
                obj_ensayosubtipo = New cls_ensayosubtipo_
                If Not obj_ensayosubtipo.Buscar(idensayosubtipo) Then
                    obj_ensayosubtipo = Nothing
                End If
            End If
            ensayosubtipo = obj_ensayosubtipo
        End Get
        Set(ByVal value As cls_ensayosubtipo_)
            obj_ensayosubtipo = value
        End Set
    End Property

    Property cliente() As cls_cliente_
        Get
            If IsNothing(obj_cliente) Then
                obj_cliente = New cls_cliente_
                If Not obj_cliente.Buscar(idcliente) Then
                    obj_cliente = Nothing
                End If
            End If
            cliente = obj_cliente
        End Get
        Set(ByVal value As cls_cliente_)
            obj_cliente = value
        End Set
    End Property

    Property centrocostoorden() As cls_centrocostoorden_
        Get
            If IsNothing(obj_centrocostoorden) Then
                obj_centrocostoorden = New cls_centrocostoorden_
                If Not obj_centrocostoorden.Buscar(idcentrocostoorden) Then
                    obj_centrocostoorden = Nothing
                End If
            End If
            centrocostoorden = obj_centrocostoorden
        End Get
        Set(ByVal value As cls_centrocostoorden_)
            obj_centrocostoorden = value
        End Set
    End Property

    Property equipo() As cls_equipo_
        Get
            If IsNothing(obj_equipo) Then
                obj_equipo = New cls_equipo_
                If Not obj_equipo.Buscar(idequipo) Then
                    obj_equipo = Nothing
                End If
            End If
            equipo = obj_equipo
        End Get
        Set(ByVal value As cls_equipo_)
            obj_equipo = value
        End Set
    End Property

    Property componenteensayar() As cls_componenteensayar_
        Get
            If IsNothing(obj_componenteensayar) Then
                obj_componenteensayar = New cls_componenteensayar_
                If Not obj_componenteensayar.Buscar(idcomponenteensayar) Then
                    obj_componenteensayar = Nothing
                End If
            End If
            componenteensayar = obj_componenteensayar
        End Get
        Set(ByVal value As cls_componenteensayar_)
            obj_componenteensayar = value
        End Set
    End Property

    Property norma() As cls_criterionorma_
        Get
            If IsNothing(obj_norma) Then
                obj_norma = New cls_criterionorma_
                If Not obj_norma.Buscar(idnorma) Then
                    obj_norma = Nothing
                End If
            End If
            norma = obj_norma
        End Get
        Set(ByVal value As cls_criterionorma_)
            obj_norma = value
        End Set
    End Property

    Property criterio() As cls_criterionorma_
        Get
            If IsNothing(obj_criterio) Then
                obj_criterio = New cls_criterionorma_
                If Not obj_criterio.Buscar(idcriterio) Then
                    obj_criterio = Nothing
                End If
            End If
            criterio = obj_criterio
        End Get
        Set(ByVal value As cls_criterionorma_)
            obj_criterio = value
        End Set
    End Property


    Property evaluador() As cls_personal_
        Get
            If IsNothing(obj_evaluador) Then
                obj_evaluador = New cls_personal_
                If Not obj_evaluador.Buscar(idevaluador) Then
                    obj_evaluador = Nothing
                End If
            End If
            evaluador = obj_evaluador
        End Get
        Set(ByVal value As cls_personal_)
            obj_evaluador = value
        End Set
    End Property

    Property inspector() As cls_personal_
        Get
            If IsNothing(obj_inspector) Then
                obj_inspector = New cls_personal_
                If Not obj_inspector.Buscar(idinspector) Then
                    obj_inspector = Nothing
                End If
            End If
            inspector = obj_inspector
        End Get
        Set(ByVal value As cls_personal_)
            obj_inspector = value
        End Set
    End Property

    Property usuariorealizado() As cls_usuario_
        Get
            If IsNothing(obj_usuariorealizado) Then
                obj_usuariorealizado = New cls_usuario_
                If Not obj_usuariorealizado.Buscar(idusuariorealizado) Then
                    obj_usuariorealizado = Nothing
                End If
            End If
            usuariorealizado = obj_usuariorealizado
        End Get
        Set(ByVal value As cls_usuario_)
            obj_usuariorealizado = value
        End Set
    End Property

    Property usuarioingresado() As cls_usuario_
        Get
            If IsNothing(obj_usuarioingresado) Then
                obj_usuarioingresado = New cls_usuario_
                If Not obj_usuarioingresado.Buscar(idusuarioingresado) Then
                    obj_usuarioingresado = Nothing
                End If
            End If
            usuarioingresado = obj_usuarioingresado
        End Get
        Set(ByVal value As cls_usuario_)
            obj_usuarioingresado = value
        End Set
    End Property

    Property Items() As Collections.Generic.List(Of cls_ensayo03_)
        Get
            Items = col_Items
        End Get
        Set(ByVal value As Collections.Generic.List(Of cls_ensayo03_))
            col_Items = value
        End Set
    End Property
    Property registro() As cls_registro_
        Get
            If IsNothing(obj_registro) Then
                obj_registro = New cls_registro_
                If Not obj_registro.Buscar(idregistro) Then
                    obj_registro = Nothing
                End If
            End If
            registro = obj_registro
        End Get
        Set(ByVal value As cls_registro_)
            obj_registro = value
        End Set
    End Property
#End Region

    Private Sub CargarColeccion(ByVal obj_Reader As SqlDataReader)
        col_Items = New Collections.Generic.List(Of cls_ensayo03_)
        While obj_Reader.Read()
            Dim Elemento As New cls_ensayo03_
            Elemento.int_idensayo03 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo03")))

            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo"))) = False Then
                Elemento.int_idensayotipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo"))) = False Then
                Elemento.int_idensayosubtipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("numero"))) = False Then
                Elemento.str_numero = (obj_Reader.GetValue(obj_Reader.GetOrdinal("numero")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha"))) = False Then
                Elemento.dte_fecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente"))) = False Then
                Elemento.int_idcliente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcentrocostoorden"))) = False Then
                Elemento.int_idcentrocostoorden = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcentrocostoorden")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo"))) = False Then
                Elemento.int_idequipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcomponenteensayar"))) = False Then
                Elemento.int_idcomponenteensayar = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcomponenteensayar")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("identificacion"))) = False Then
                Elemento.str_identificacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("identificacion")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("procedimiento"))) = False Then
                Elemento.str_procedimiento = (obj_Reader.GetValue(obj_Reader.GetOrdinal("procedimiento")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idnorma"))) = False Then
                Elemento.int_idnorma = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idnorma")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterio"))) = False Then
                Elemento.int_idcriterio = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterio")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipoEND"))) = False Then
                Elemento.int_idequipoEND = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipoEND")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("equipoENDserie"))) = False Then
                Elemento.str_equipoENDserie = (obj_Reader.GetValue(obj_Reader.GetOrdinal("equipoENDserie")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion1"))) = False Then
                Elemento.str_Cposicion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion1"))) = False Then
                Elemento.str_Cidentificacion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie1"))) = False Then
                Elemento.str_Cserie1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia1"))) = False Then
                Elemento.int_Cfrecuencia1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño1"))) = False Then
                Elemento.str_Ctamaño1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño1"))) = False Then
                Elemento.str_Ctipolargocaño1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante1"))) = False Then
                Elemento.int_Cidacoplante1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona1"))) = False Then
                Elemento.int_Czona1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico1"))) = False Then
                Elemento.bit_Czonico1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo1"))) = False Then
                Elemento.int_Cidevaluacionmetodo1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion1"))) = False Then
                Elemento.str_Cbloquecalibracion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector1"))) = False Then
                Elemento.str_Creflector1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia1"))) = False Then
                Elemento.int_Ccorreciontransferencia1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro1"))) = False Then
                Elemento.str_Cnivelcurvaregistro1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("CS1"))) = False Then
                Elemento.int_CS1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("CS1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta1"))) = False Then
                Elemento.int_Cdelta1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion2"))) = False Then
                Elemento.str_Cposicion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion2"))) = False Then
                Elemento.str_Cidentificacion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie2"))) = False Then
                Elemento.str_Cserie2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia2"))) = False Then
                Elemento.int_Cfrecuencia2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño2"))) = False Then
                Elemento.str_Ctamaño2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño2"))) = False Then
                Elemento.str_Ctipolargocaño2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante2"))) = False Then
                Elemento.int_Cidacoplante2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona2"))) = False Then
                Elemento.int_Czona2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico2"))) = False Then
                Elemento.bit_Czonico2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo2"))) = False Then
                Elemento.int_Cidevaluacionmetodo2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion2"))) = False Then
                Elemento.str_Cbloquecalibracion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector2"))) = False Then
                Elemento.str_Creflector2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia2"))) = False Then
                Elemento.int_Ccorreciontransferencia2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro2"))) = False Then
                Elemento.str_Cnivelcurvaregistro2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("CS2"))) = False Then
                Elemento.int_CS2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("CS2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta2"))) = False Then
                Elemento.int_Cdelta2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion3"))) = False Then
                Elemento.str_Cposicion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion3"))) = False Then
                Elemento.str_Cidentificacion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie3"))) = False Then
                Elemento.str_Cserie3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia3"))) = False Then
                Elemento.int_Cfrecuencia3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño3"))) = False Then
                Elemento.str_Ctamaño3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño3"))) = False Then
                Elemento.str_Ctipolargocaño3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante3"))) = False Then
                Elemento.int_Cidacoplante3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona3"))) = False Then
                Elemento.int_Czona3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico3"))) = False Then
                Elemento.bit_Czonico3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo3"))) = False Then
                Elemento.int_Cidevaluacionmetodo3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion3"))) = False Then
                Elemento.str_Cbloquecalibracion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector3"))) = False Then
                Elemento.str_Creflector3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia3"))) = False Then
                Elemento.int_Ccorreciontransferencia3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro3"))) = False Then
                Elemento.str_Cnivelcurvaregistro3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("CS3"))) = False Then
                Elemento.int_CS3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("CS3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta3"))) = False Then
                Elemento.int_Cdelta3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("nindicacion"))) = False Then
                Elemento.int_nindicacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("nindicacion")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("palpador"))) = False Then
                Elemento.str_palpador = (obj_Reader.GetValue(obj_Reader.GetOrdinal("palpador")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("palpadorposicion"))) = False Then
                Elemento.int_palpadorposicion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("palpadorposicion")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("sonico"))) = False Then
                Elemento.int_sonico = (obj_Reader.GetValue(obj_Reader.GetOrdinal("sonico")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("x"))) = False Then
                Elemento.int_x = (obj_Reader.GetValue(obj_Reader.GetOrdinal("x")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("y"))) = False Then
                Elemento.int_y = (obj_Reader.GetValue(obj_Reader.GetOrdinal("y")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("z"))) = False Then
                Elemento.int_z = (obj_Reader.GetValue(obj_Reader.GetOrdinal("z")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("longitud"))) = False Then
                Elemento.bit_longitud = (obj_Reader.GetValue(obj_Reader.GetOrdinal("longitud")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("transversal"))) = False Then
                Elemento.bit_transversal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("transversal")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("superficieplana"))) = False Then
                Elemento.bit_superficieplana = (obj_Reader.GetValue(obj_Reader.GetOrdinal("superficieplana")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("exesonivelregistro"))) = False Then
                Elemento.int_exesonivelregistro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("exesonivelregistro")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("registrolongitud"))) = False Then
                Elemento.int_registrolongitud = (obj_Reader.GetValue(obj_Reader.GetOrdinal("registrolongitud")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("resultado"))) = False Then
                Elemento.int_resultado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("resultado")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("croquis"))) = False Then
                Elemento.img_croquis = byteArrayToImage((obj_Reader.GetValue(obj_Reader.GetOrdinal("croquis"))))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("croquisnotas"))) = False Then
                Elemento.str_croquisnotas = (obj_Reader.GetValue(obj_Reader.GetOrdinal("croquisnotas")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("notas"))) = False Then
                Elemento.str_notas = (obj_Reader.GetValue(obj_Reader.GetOrdinal("notas")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("informeestado"))) = False Then
                Elemento.int_informeestado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("informeestado")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro"))) = False Then
                Elemento.int_idregistro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador"))) = False Then
                Elemento.int_idevaluador = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector"))) = False Then
                Elemento.int_idinspector = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha"))) = False Then
                Elemento.dte_evaluadorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha"))) = False Then
                Elemento.dte_inspectorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado"))) = False Then
                Elemento.int_idusuariorealizado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado"))) = False Then
                Elemento.int_idusuarioingresado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado")))
            End If
            col_Items.Add(Elemento)
        End While
    End Sub

    Private Sub CargarVariables(ByVal obj_Reader As SqlDataReader)
        obj_Reader.Read()
        int_idensayo03 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo03")))

        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo"))) = False Then
            int_idensayotipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo"))) = False Then
            int_idensayosubtipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("numero"))) = False Then
            str_numero = (obj_Reader.GetValue(obj_Reader.GetOrdinal("numero")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha"))) = False Then
            dte_fecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente"))) = False Then
            int_idcliente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcentrocostoorden"))) = False Then
            int_idcentrocostoorden = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcentrocostoorden")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo"))) = False Then
            int_idequipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcomponenteensayar"))) = False Then
            int_idcomponenteensayar = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcomponenteensayar")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("identificacion"))) = False Then
            str_identificacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("identificacion")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("procedimiento"))) = False Then
            str_procedimiento = (obj_Reader.GetValue(obj_Reader.GetOrdinal("procedimiento")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idnorma"))) = False Then
            int_idnorma = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idnorma")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterio"))) = False Then
            int_idcriterio = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterio")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipoEND"))) = False Then
            int_idequipoEND = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipoEND")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("equipoENDserie"))) = False Then
            str_equipoENDserie = (obj_Reader.GetValue(obj_Reader.GetOrdinal("equipoENDserie")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion1"))) = False Then
            str_Cposicion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion1"))) = False Then
            str_Cidentificacion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie1"))) = False Then
            str_Cserie1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia1"))) = False Then
            int_Cfrecuencia1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño1"))) = False Then
            str_Ctamaño1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño1"))) = False Then
            str_Ctipolargocaño1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante1"))) = False Then
            int_Cidacoplante1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona1"))) = False Then
            int_Czona1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico1"))) = False Then
            bit_Czonico1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo1"))) = False Then
            int_Cidevaluacionmetodo1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion1"))) = False Then
            str_Cbloquecalibracion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector1"))) = False Then
            str_Creflector1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia1"))) = False Then
            int_Ccorreciontransferencia1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro1"))) = False Then
            str_Cnivelcurvaregistro1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("CS1"))) = False Then
            int_CS1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("CS1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta1"))) = False Then
            int_Cdelta1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion2"))) = False Then
            str_Cposicion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion2"))) = False Then
            str_Cidentificacion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie2"))) = False Then
            str_Cserie2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia2"))) = False Then
            int_Cfrecuencia2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño2"))) = False Then
            str_Ctamaño2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño2"))) = False Then
            str_Ctipolargocaño2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante2"))) = False Then
            int_Cidacoplante2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona2"))) = False Then
            int_Czona2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico2"))) = False Then
            bit_Czonico2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo2"))) = False Then
            int_Cidevaluacionmetodo2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion2"))) = False Then
            str_Cbloquecalibracion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector2"))) = False Then
            str_Creflector2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia2"))) = False Then
            int_Ccorreciontransferencia2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro2"))) = False Then
            str_Cnivelcurvaregistro2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("CS2"))) = False Then
            int_CS2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("CS2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta2"))) = False Then
            int_Cdelta2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion3"))) = False Then
            str_Cposicion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cposicion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion3"))) = False Then
            str_Cidentificacion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidentificacion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie3"))) = False Then
            str_Cserie3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cserie3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia3"))) = False Then
            int_Cfrecuencia3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cfrecuencia3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño3"))) = False Then
            str_Ctamaño3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctamaño3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño3"))) = False Then
            str_Ctipolargocaño3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ctipolargocaño3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante3"))) = False Then
            int_Cidacoplante3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidacoplante3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona3"))) = False Then
            int_Czona3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czona3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico3"))) = False Then
            bit_Czonico3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Czonico3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo3"))) = False Then
            int_Cidevaluacionmetodo3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cidevaluacionmetodo3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion3"))) = False Then
            str_Cbloquecalibracion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cbloquecalibracion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector3"))) = False Then
            str_Creflector3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Creflector3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia3"))) = False Then
            int_Ccorreciontransferencia3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Ccorreciontransferencia3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro3"))) = False Then
            str_Cnivelcurvaregistro3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cnivelcurvaregistro3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("CS3"))) = False Then
            int_CS3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("CS3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta3"))) = False Then
            int_Cdelta3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("Cdelta3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("nindicacion"))) = False Then
            int_nindicacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("nindicacion")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("palpador"))) = False Then
            str_palpador = (obj_Reader.GetValue(obj_Reader.GetOrdinal("palpador")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("palpadorposicion"))) = False Then
            int_palpadorposicion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("palpadorposicion")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("sonico"))) = False Then
            int_sonico = (obj_Reader.GetValue(obj_Reader.GetOrdinal("sonico")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("x"))) = False Then
            int_x = (obj_Reader.GetValue(obj_Reader.GetOrdinal("x")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("y"))) = False Then
            int_y = (obj_Reader.GetValue(obj_Reader.GetOrdinal("y")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("z"))) = False Then
            int_z = (obj_Reader.GetValue(obj_Reader.GetOrdinal("z")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("longitud"))) = False Then
            bit_longitud = (obj_Reader.GetValue(obj_Reader.GetOrdinal("longitud")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("transversal"))) = False Then
            bit_transversal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("transversal")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("superficieplana"))) = False Then
            bit_superficieplana = (obj_Reader.GetValue(obj_Reader.GetOrdinal("superficieplana")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("exesonivelregistro"))) = False Then
            int_exesonivelregistro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("exesonivelregistro")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("registrolongitud"))) = False Then
            int_registrolongitud = (obj_Reader.GetValue(obj_Reader.GetOrdinal("registrolongitud")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("resultado"))) = False Then
            int_resultado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("resultado")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("croquis"))) = False Then
            img_croquis = byteArrayToImage((obj_Reader.GetValue(obj_Reader.GetOrdinal("croquis"))))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("croquisnotas"))) = False Then
            str_croquisnotas = (obj_Reader.GetValue(obj_Reader.GetOrdinal("croquisnotas")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("notas"))) = False Then
            str_notas = (obj_Reader.GetValue(obj_Reader.GetOrdinal("notas")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("informeestado"))) = False Then
            int_informeestado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("informeestado")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro"))) = False Then
            int_idregistro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador"))) = False Then
            int_idevaluador = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector"))) = False Then
            int_idinspector = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha"))) = False Then
            dte_evaluadorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha"))) = False Then
            dte_inspectorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado"))) = False Then
            int_idusuariorealizado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado"))) = False Then
            int_idusuarioingresado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado")))
        End If
    End Sub

    Public Sub Nuevo(Optional ByVal ObtenerID As Boolean = False)
        Dim obj_Conexion As New cls_Conexion
        Try
            'Creacion de registro----------------------------------------------------
            If IsNothing(obj_registro) Then
                registro = New cls_registro_
                registro.fechacreado = Now
                registro.idusuariocreado = UsuarioLOG.idusuario
                registro.fechamodificado = Now
                registro.idusuariomodificado = UsuarioLOG.idusuario
                registro.idregistroestado = 1
                registro.idusuarioregistroestado = UsuarioLOG.idusuario
                registro.Nuevo(True)
                idregistro = obj_registro.idregistro
            End If
            '------------------------------------------------------------------------
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo03__Nuevo"
                .Parameters.Add("@idensayotipo", SqlDbType.int).Value = int_idensayotipo
                .Parameters.Add("@idensayosubtipo", SqlDbType.int).Value = int_idensayosubtipo
                .Parameters.Add("@numero", SqlDbType.nvarchar).Value = str_numero
                .Parameters.Add("@fecha", SqlDbType.datetime).Value = dte_fecha
                .Parameters.Add("@idcliente", SqlDbType.int).Value = int_idcliente
                .Parameters.Add("@idcentrocostoorden", SqlDbType.int).Value = int_idcentrocostoorden
                .Parameters.Add("@idequipo", SqlDbType.int).Value = int_idequipo
                .Parameters.Add("@idcomponenteensayar", SqlDbType.int).Value = int_idcomponenteensayar
                .Parameters.Add("@identificacion", SqlDbType.nvarchar).Value = str_identificacion
                .Parameters.Add("@procedimiento", SqlDbType.nvarchar).Value = str_procedimiento
                .Parameters.Add("@idnorma", SqlDbType.int).Value = int_idnorma
                .Parameters.Add("@idcriterio", SqlDbType.int).Value = int_idcriterio
                .Parameters.Add("@idequipoEND", SqlDbType.int).Value = int_idequipoEND
                .Parameters.Add("@equipoENDserie", SqlDbType.nvarchar).Value = str_equipoENDserie
                .Parameters.Add("@Cposicion1", SqlDbType.nvarchar).Value = str_Cposicion1
                .Parameters.Add("@Cidentificacion1", SqlDbType.nvarchar).Value = str_Cidentificacion1
                .Parameters.Add("@Cserie1", SqlDbType.nvarchar).Value = str_Cserie1
                .Parameters.Add("@Cfrecuencia1", SqlDbType.int).Value = int_Cfrecuencia1
                .Parameters.Add("@Ctamaño1", SqlDbType.nvarchar).Value = str_Ctamaño1
                .Parameters.Add("@Ctipolargocaño1", SqlDbType.nvarchar).Value = str_Ctipolargocaño1
                .Parameters.Add("@Cidacoplante1", SqlDbType.int).Value = int_Cidacoplante1
                .Parameters.Add("@Czona1", SqlDbType.int).Value = int_Czona1
                .Parameters.Add("@Czonico1", SqlDbType.bit).Value = bit_Czonico1
                .Parameters.Add("@Cidevaluacionmetodo1", SqlDbType.int).Value = int_Cidevaluacionmetodo1
                .Parameters.Add("@Cbloquecalibracion1", SqlDbType.nvarchar).Value = str_Cbloquecalibracion1
                .Parameters.Add("@Creflector1", SqlDbType.nvarchar).Value = str_Creflector1
                .Parameters.Add("@Ccorreciontransferencia1", SqlDbType.int).Value = int_Ccorreciontransferencia1
                .Parameters.Add("@Cnivelcurvaregistro1", SqlDbType.nvarchar).Value = str_Cnivelcurvaregistro1
                .Parameters.Add("@CS1", SqlDbType.int).Value = int_CS1
                .Parameters.Add("@Cdelta1", SqlDbType.int).Value = int_Cdelta1
                .Parameters.Add("@Cposicion2", SqlDbType.nvarchar).Value = str_Cposicion2
                .Parameters.Add("@Cidentificacion2", SqlDbType.nvarchar).Value = str_Cidentificacion2
                .Parameters.Add("@Cserie2", SqlDbType.nvarchar).Value = str_Cserie2
                .Parameters.Add("@Cfrecuencia2", SqlDbType.int).Value = int_Cfrecuencia2
                .Parameters.Add("@Ctamaño2", SqlDbType.nvarchar).Value = str_Ctamaño2
                .Parameters.Add("@Ctipolargocaño2", SqlDbType.nvarchar).Value = str_Ctipolargocaño2
                .Parameters.Add("@Cidacoplante2", SqlDbType.int).Value = int_Cidacoplante2
                .Parameters.Add("@Czona2", SqlDbType.int).Value = int_Czona2
                .Parameters.Add("@Czonico2", SqlDbType.bit).Value = bit_Czonico2
                .Parameters.Add("@Cidevaluacionmetodo2", SqlDbType.int).Value = int_Cidevaluacionmetodo2
                .Parameters.Add("@Cbloquecalibracion2", SqlDbType.nvarchar).Value = str_Cbloquecalibracion2
                .Parameters.Add("@Creflector2", SqlDbType.nvarchar).Value = str_Creflector2
                .Parameters.Add("@Ccorreciontransferencia2", SqlDbType.int).Value = int_Ccorreciontransferencia2
                .Parameters.Add("@Cnivelcurvaregistro2", SqlDbType.nvarchar).Value = str_Cnivelcurvaregistro2
                .Parameters.Add("@CS2", SqlDbType.int).Value = int_CS2
                .Parameters.Add("@Cdelta2", SqlDbType.int).Value = int_Cdelta2
                .Parameters.Add("@Cposicion3", SqlDbType.nvarchar).Value = str_Cposicion3
                .Parameters.Add("@Cidentificacion3", SqlDbType.nvarchar).Value = str_Cidentificacion3
                .Parameters.Add("@Cserie3", SqlDbType.nvarchar).Value = str_Cserie3
                .Parameters.Add("@Cfrecuencia3", SqlDbType.int).Value = int_Cfrecuencia3
                .Parameters.Add("@Ctamaño3", SqlDbType.nvarchar).Value = str_Ctamaño3
                .Parameters.Add("@Ctipolargocaño3", SqlDbType.nvarchar).Value = str_Ctipolargocaño3
                .Parameters.Add("@Cidacoplante3", SqlDbType.int).Value = int_Cidacoplante3
                .Parameters.Add("@Czona3", SqlDbType.int).Value = int_Czona3
                .Parameters.Add("@Czonico3", SqlDbType.bit).Value = bit_Czonico3
                .Parameters.Add("@Cidevaluacionmetodo3", SqlDbType.int).Value = int_Cidevaluacionmetodo3
                .Parameters.Add("@Cbloquecalibracion3", SqlDbType.nvarchar).Value = str_Cbloquecalibracion3
                .Parameters.Add("@Creflector3", SqlDbType.nvarchar).Value = str_Creflector3
                .Parameters.Add("@Ccorreciontransferencia3", SqlDbType.int).Value = int_Ccorreciontransferencia3
                .Parameters.Add("@Cnivelcurvaregistro3", SqlDbType.nvarchar).Value = str_Cnivelcurvaregistro3
                .Parameters.Add("@CS3", SqlDbType.int).Value = int_CS3
                .Parameters.Add("@Cdelta3", SqlDbType.int).Value = int_Cdelta3
                .Parameters.Add("@nindicacion", SqlDbType.int).Value = int_nindicacion
                .Parameters.Add("@palpador", SqlDbType.nvarchar).Value = str_palpador
                .Parameters.Add("@palpadorposicion", SqlDbType.int).Value = int_palpadorposicion
                .Parameters.Add("@sonico", SqlDbType.int).Value = int_sonico
                .Parameters.Add("@x", SqlDbType.int).Value = int_x
                .Parameters.Add("@y", SqlDbType.int).Value = int_y
                .Parameters.Add("@z", SqlDbType.int).Value = int_z
                .Parameters.Add("@longitud", SqlDbType.bit).Value = bit_longitud
                .Parameters.Add("@transversal", SqlDbType.bit).Value = bit_transversal
                .Parameters.Add("@superficieplana", SqlDbType.bit).Value = bit_superficieplana
                .Parameters.Add("@exesonivelregistro", SqlDbType.int).Value = int_exesonivelregistro
                .Parameters.Add("@registrolongitud", SqlDbType.int).Value = int_registrolongitud
                .Parameters.Add("@resultado", SqlDbType.int).Value = int_resultado
                .Parameters.Add("@croquis", SqlDbType.Image).Value = IIf(IsNothing(imageToByteArray(img_croquis)), DBNull.Value, imageToByteArray(img_croquis))
                .Parameters.Add("@croquisnotas", SqlDbType.nvarchar).Value = str_croquisnotas
                .Parameters.Add("@notas", SqlDbType.nvarchar).Value = str_notas
                .Parameters.Add("@informeestado", SqlDbType.int).Value = int_informeestado
                .Parameters.Add("@idregistro", SqlDbType.int).Value = int_idregistro
                .Parameters.Add("@idevaluador", SqlDbType.int).Value = int_idevaluador
                .Parameters.Add("@idinspector", SqlDbType.int).Value = int_idinspector
                .Parameters.Add("@evaluadorfecha", SqlDbType.datetime).Value = dte_evaluadorfecha
                .Parameters.Add("@inspectorfecha", SqlDbType.datetime).Value = dte_inspectorfecha
                .Parameters.Add("@idusuariorealizado", SqlDbType.int).Value = int_idusuariorealizado
                .Parameters.Add("@idusuarioingresado", SqlDbType.int).Value = int_idusuarioingresado
                .ExecuteNonQuery()
            End With
            If ObtenerID Then
                CargarUltimo()
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Crear el registro de ensayo03_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Sub Modificar()
        Dim obj_Conexion As New cls_Conexion
        Try
            'Modificacion de registro------------------------------------------------
            registro.fechamodificado = Now : registro.idusuariomodificado = UsuarioLOG.idusuario
            registro.Modificar()
            '------------------------------------------------------------------------
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo03__Modificar"
                .Parameters.Add("@idensayo03", SqlDbType.int).Value = int_idensayo03
                .Parameters.Add("@idensayotipo", SqlDbType.int).Value = int_idensayotipo
                .Parameters.Add("@idensayosubtipo", SqlDbType.int).Value = int_idensayosubtipo
                .Parameters.Add("@numero", SqlDbType.nvarchar).Value = str_numero
                .Parameters.Add("@fecha", SqlDbType.datetime).Value = dte_fecha
                .Parameters.Add("@idcliente", SqlDbType.int).Value = int_idcliente
                .Parameters.Add("@idcentrocostoorden", SqlDbType.int).Value = int_idcentrocostoorden
                .Parameters.Add("@idequipo", SqlDbType.int).Value = int_idequipo
                .Parameters.Add("@idcomponenteensayar", SqlDbType.int).Value = int_idcomponenteensayar
                .Parameters.Add("@identificacion", SqlDbType.nvarchar).Value = str_identificacion
                .Parameters.Add("@procedimiento", SqlDbType.nvarchar).Value = str_procedimiento
                .Parameters.Add("@idnorma", SqlDbType.int).Value = int_idnorma
                .Parameters.Add("@idcriterio", SqlDbType.int).Value = int_idcriterio
                .Parameters.Add("@idequipoEND", SqlDbType.int).Value = int_idequipoEND
                .Parameters.Add("@equipoENDserie", SqlDbType.nvarchar).Value = str_equipoENDserie
                .Parameters.Add("@Cposicion1", SqlDbType.nvarchar).Value = str_Cposicion1
                .Parameters.Add("@Cidentificacion1", SqlDbType.nvarchar).Value = str_Cidentificacion1
                .Parameters.Add("@Cserie1", SqlDbType.nvarchar).Value = str_Cserie1
                .Parameters.Add("@Cfrecuencia1", SqlDbType.int).Value = int_Cfrecuencia1
                .Parameters.Add("@Ctamaño1", SqlDbType.nvarchar).Value = str_Ctamaño1
                .Parameters.Add("@Ctipolargocaño1", SqlDbType.nvarchar).Value = str_Ctipolargocaño1
                .Parameters.Add("@Cidacoplante1", SqlDbType.int).Value = int_Cidacoplante1
                .Parameters.Add("@Czona1", SqlDbType.int).Value = int_Czona1
                .Parameters.Add("@Czonico1", SqlDbType.bit).Value = bit_Czonico1
                .Parameters.Add("@Cidevaluacionmetodo1", SqlDbType.int).Value = int_Cidevaluacionmetodo1
                .Parameters.Add("@Cbloquecalibracion1", SqlDbType.nvarchar).Value = str_Cbloquecalibracion1
                .Parameters.Add("@Creflector1", SqlDbType.nvarchar).Value = str_Creflector1
                .Parameters.Add("@Ccorreciontransferencia1", SqlDbType.int).Value = int_Ccorreciontransferencia1
                .Parameters.Add("@Cnivelcurvaregistro1", SqlDbType.nvarchar).Value = str_Cnivelcurvaregistro1
                .Parameters.Add("@CS1", SqlDbType.int).Value = int_CS1
                .Parameters.Add("@Cdelta1", SqlDbType.int).Value = int_Cdelta1
                .Parameters.Add("@Cposicion2", SqlDbType.nvarchar).Value = str_Cposicion2
                .Parameters.Add("@Cidentificacion2", SqlDbType.nvarchar).Value = str_Cidentificacion2
                .Parameters.Add("@Cserie2", SqlDbType.nvarchar).Value = str_Cserie2
                .Parameters.Add("@Cfrecuencia2", SqlDbType.int).Value = int_Cfrecuencia2
                .Parameters.Add("@Ctamaño2", SqlDbType.nvarchar).Value = str_Ctamaño2
                .Parameters.Add("@Ctipolargocaño2", SqlDbType.nvarchar).Value = str_Ctipolargocaño2
                .Parameters.Add("@Cidacoplante2", SqlDbType.int).Value = int_Cidacoplante2
                .Parameters.Add("@Czona2", SqlDbType.int).Value = int_Czona2
                .Parameters.Add("@Czonico2", SqlDbType.bit).Value = bit_Czonico2
                .Parameters.Add("@Cidevaluacionmetodo2", SqlDbType.int).Value = int_Cidevaluacionmetodo2
                .Parameters.Add("@Cbloquecalibracion2", SqlDbType.nvarchar).Value = str_Cbloquecalibracion2
                .Parameters.Add("@Creflector2", SqlDbType.nvarchar).Value = str_Creflector2
                .Parameters.Add("@Ccorreciontransferencia2", SqlDbType.int).Value = int_Ccorreciontransferencia2
                .Parameters.Add("@Cnivelcurvaregistro2", SqlDbType.nvarchar).Value = str_Cnivelcurvaregistro2
                .Parameters.Add("@CS2", SqlDbType.int).Value = int_CS2
                .Parameters.Add("@Cdelta2", SqlDbType.int).Value = int_Cdelta2
                .Parameters.Add("@Cposicion3", SqlDbType.nvarchar).Value = str_Cposicion3
                .Parameters.Add("@Cidentificacion3", SqlDbType.nvarchar).Value = str_Cidentificacion3
                .Parameters.Add("@Cserie3", SqlDbType.nvarchar).Value = str_Cserie3
                .Parameters.Add("@Cfrecuencia3", SqlDbType.int).Value = int_Cfrecuencia3
                .Parameters.Add("@Ctamaño3", SqlDbType.nvarchar).Value = str_Ctamaño3
                .Parameters.Add("@Ctipolargocaño3", SqlDbType.nvarchar).Value = str_Ctipolargocaño3
                .Parameters.Add("@Cidacoplante3", SqlDbType.int).Value = int_Cidacoplante3
                .Parameters.Add("@Czona3", SqlDbType.int).Value = int_Czona3
                .Parameters.Add("@Czonico3", SqlDbType.bit).Value = bit_Czonico3
                .Parameters.Add("@Cidevaluacionmetodo3", SqlDbType.int).Value = int_Cidevaluacionmetodo3
                .Parameters.Add("@Cbloquecalibracion3", SqlDbType.nvarchar).Value = str_Cbloquecalibracion3
                .Parameters.Add("@Creflector3", SqlDbType.nvarchar).Value = str_Creflector3
                .Parameters.Add("@Ccorreciontransferencia3", SqlDbType.int).Value = int_Ccorreciontransferencia3
                .Parameters.Add("@Cnivelcurvaregistro3", SqlDbType.nvarchar).Value = str_Cnivelcurvaregistro3
                .Parameters.Add("@CS3", SqlDbType.int).Value = int_CS3
                .Parameters.Add("@Cdelta3", SqlDbType.int).Value = int_Cdelta3
                .Parameters.Add("@nindicacion", SqlDbType.int).Value = int_nindicacion
                .Parameters.Add("@palpador", SqlDbType.nvarchar).Value = str_palpador
                .Parameters.Add("@palpadorposicion", SqlDbType.int).Value = int_palpadorposicion
                .Parameters.Add("@sonico", SqlDbType.int).Value = int_sonico
                .Parameters.Add("@x", SqlDbType.int).Value = int_x
                .Parameters.Add("@y", SqlDbType.int).Value = int_y
                .Parameters.Add("@z", SqlDbType.int).Value = int_z
                .Parameters.Add("@longitud", SqlDbType.bit).Value = bit_longitud
                .Parameters.Add("@transversal", SqlDbType.bit).Value = bit_transversal
                .Parameters.Add("@superficieplana", SqlDbType.bit).Value = bit_superficieplana
                .Parameters.Add("@exesonivelregistro", SqlDbType.int).Value = int_exesonivelregistro
                .Parameters.Add("@registrolongitud", SqlDbType.int).Value = int_registrolongitud
                .Parameters.Add("@resultado", SqlDbType.int).Value = int_resultado
                .Parameters.Add("@croquis", SqlDbType.Image).Value = IIf(IsNothing(imageToByteArray(img_croquis)), DBNull.Value, imageToByteArray(img_croquis))
                .Parameters.Add("@croquisnotas", SqlDbType.nvarchar).Value = str_croquisnotas
                .Parameters.Add("@notas", SqlDbType.nvarchar).Value = str_notas
                .Parameters.Add("@informeestado", SqlDbType.int).Value = int_informeestado
                .Parameters.Add("@idregistro", SqlDbType.int).Value = int_idregistro
                .Parameters.Add("@idevaluador", SqlDbType.int).Value = int_idevaluador
                .Parameters.Add("@idinspector", SqlDbType.int).Value = int_idinspector
                .Parameters.Add("@evaluadorfecha", SqlDbType.datetime).Value = dte_evaluadorfecha
                .Parameters.Add("@inspectorfecha", SqlDbType.datetime).Value = dte_inspectorfecha
                .Parameters.Add("@idusuariorealizado", SqlDbType.int).Value = int_idusuariorealizado
                .Parameters.Add("@idusuarioingresado", SqlDbType.int).Value = int_idusuarioingresado
                .ExecuteNonQuery()
            End With
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Modificar el registro de ensayo03_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Sub Eliminar(ByVal idensayo03 As Integer)
        Dim obj_Conexion As New cls_Conexion
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo03__Eliminar"
                .Parameters.Add("@idensayo03", SqlDbType.int).Value = idensayo03
                .ExecuteNonQuery()
            End With
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Eliminar el registro de ensayo03_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Function Buscar(ByVal idensayo03 As Integer) As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            Buscar = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo03__Buscar"
                .Parameters.Add("@idensayo03", SqlDbType.int).Value = idensayo03
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
                Buscar = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Buscar el registro de ensayo03_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Sub CargarUltimo()
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo03__CargarUltimo"
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarUltimo registro de ensayo03_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Sub

    Public Function CargarTodos(Optional ByVal idregistroestado As Integer = 1) As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            CargarTodos = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo03__CargarTodos"
                .Parameters.Add("@idregistroestado", SqlDbType.Int).Value = idregistroestado
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarColeccion(obj_Reader)
                CargarTodos = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarTodos los registros de ensayo03_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj_ensayo03_Clon As New cls_ensayo03_
        obj_ensayo03_Clon.int_idensayo03 = Me.int_idensayo03
        obj_ensayo03_Clon.int_idensayotipo = Me.int_idensayotipo
        obj_ensayo03_Clon.int_idensayosubtipo = Me.int_idensayosubtipo
        obj_ensayo03_Clon.str_numero = Me.str_numero
        obj_ensayo03_Clon.dte_fecha = Me.dte_fecha
        obj_ensayo03_Clon.int_idcliente = Me.int_idcliente
        obj_ensayo03_Clon.int_idcentrocostoorden = Me.int_idcentrocostoorden
        obj_ensayo03_Clon.int_idequipo = Me.int_idequipo
        obj_ensayo03_Clon.int_idcomponenteensayar = Me.int_idcomponenteensayar
        obj_ensayo03_Clon.str_identificacion = Me.str_identificacion
        obj_ensayo03_Clon.str_procedimiento = Me.str_procedimiento
        obj_ensayo03_Clon.int_idnorma = Me.int_idnorma
        obj_ensayo03_Clon.int_idcriterio = Me.int_idcriterio
        obj_ensayo03_Clon.int_idequipoEND = Me.int_idequipoEND
        obj_ensayo03_Clon.str_equipoENDserie = Me.str_equipoENDserie
        obj_ensayo03_Clon.str_Cposicion1 = Me.str_Cposicion1
        obj_ensayo03_Clon.str_Cidentificacion1 = Me.str_Cidentificacion1
        obj_ensayo03_Clon.str_Cserie1 = Me.str_Cserie1
        obj_ensayo03_Clon.int_Cfrecuencia1 = Me.int_Cfrecuencia1
        obj_ensayo03_Clon.str_Ctamaño1 = Me.str_Ctamaño1
        obj_ensayo03_Clon.str_Ctipolargocaño1 = Me.str_Ctipolargocaño1
        obj_ensayo03_Clon.int_Cidacoplante1 = Me.int_Cidacoplante1
        obj_ensayo03_Clon.int_Czona1 = Me.int_Czona1
        obj_ensayo03_Clon.bit_Czonico1 = Me.bit_Czonico1
        obj_ensayo03_Clon.int_Cidevaluacionmetodo1 = Me.int_Cidevaluacionmetodo1
        obj_ensayo03_Clon.str_Cbloquecalibracion1 = Me.str_Cbloquecalibracion1
        obj_ensayo03_Clon.str_Creflector1 = Me.str_Creflector1
        obj_ensayo03_Clon.int_Ccorreciontransferencia1 = Me.int_Ccorreciontransferencia1
        obj_ensayo03_Clon.str_Cnivelcurvaregistro1 = Me.str_Cnivelcurvaregistro1
        obj_ensayo03_Clon.int_CS1 = Me.int_CS1
        obj_ensayo03_Clon.int_Cdelta1 = Me.int_Cdelta1
        obj_ensayo03_Clon.str_Cposicion2 = Me.str_Cposicion2
        obj_ensayo03_Clon.str_Cidentificacion2 = Me.str_Cidentificacion2
        obj_ensayo03_Clon.str_Cserie2 = Me.str_Cserie2
        obj_ensayo03_Clon.int_Cfrecuencia2 = Me.int_Cfrecuencia2
        obj_ensayo03_Clon.str_Ctamaño2 = Me.str_Ctamaño2
        obj_ensayo03_Clon.str_Ctipolargocaño2 = Me.str_Ctipolargocaño2
        obj_ensayo03_Clon.int_Cidacoplante2 = Me.int_Cidacoplante2
        obj_ensayo03_Clon.int_Czona2 = Me.int_Czona2
        obj_ensayo03_Clon.bit_Czonico2 = Me.bit_Czonico2
        obj_ensayo03_Clon.int_Cidevaluacionmetodo2 = Me.int_Cidevaluacionmetodo2
        obj_ensayo03_Clon.str_Cbloquecalibracion2 = Me.str_Cbloquecalibracion2
        obj_ensayo03_Clon.str_Creflector2 = Me.str_Creflector2
        obj_ensayo03_Clon.int_Ccorreciontransferencia2 = Me.int_Ccorreciontransferencia2
        obj_ensayo03_Clon.str_Cnivelcurvaregistro2 = Me.str_Cnivelcurvaregistro2
        obj_ensayo03_Clon.int_CS2 = Me.int_CS2
        obj_ensayo03_Clon.int_Cdelta2 = Me.int_Cdelta2
        obj_ensayo03_Clon.str_Cposicion3 = Me.str_Cposicion3
        obj_ensayo03_Clon.str_Cidentificacion3 = Me.str_Cidentificacion3
        obj_ensayo03_Clon.str_Cserie3 = Me.str_Cserie3
        obj_ensayo03_Clon.int_Cfrecuencia3 = Me.int_Cfrecuencia3
        obj_ensayo03_Clon.str_Ctamaño3 = Me.str_Ctamaño3
        obj_ensayo03_Clon.str_Ctipolargocaño3 = Me.str_Ctipolargocaño3
        obj_ensayo03_Clon.int_Cidacoplante3 = Me.int_Cidacoplante3
        obj_ensayo03_Clon.int_Czona3 = Me.int_Czona3
        obj_ensayo03_Clon.bit_Czonico3 = Me.bit_Czonico3
        obj_ensayo03_Clon.int_Cidevaluacionmetodo3 = Me.int_Cidevaluacionmetodo3
        obj_ensayo03_Clon.str_Cbloquecalibracion3 = Me.str_Cbloquecalibracion3
        obj_ensayo03_Clon.str_Creflector3 = Me.str_Creflector3
        obj_ensayo03_Clon.int_Ccorreciontransferencia3 = Me.int_Ccorreciontransferencia3
        obj_ensayo03_Clon.str_Cnivelcurvaregistro3 = Me.str_Cnivelcurvaregistro3
        obj_ensayo03_Clon.int_CS3 = Me.int_CS3
        obj_ensayo03_Clon.int_Cdelta3 = Me.int_Cdelta3
        obj_ensayo03_Clon.int_nindicacion = Me.int_nindicacion
        obj_ensayo03_Clon.str_palpador = Me.str_palpador
        obj_ensayo03_Clon.int_palpadorposicion = Me.int_palpadorposicion
        obj_ensayo03_Clon.int_sonico = Me.int_sonico
        obj_ensayo03_Clon.int_x = Me.int_x
        obj_ensayo03_Clon.int_y = Me.int_y
        obj_ensayo03_Clon.int_z = Me.int_z
        obj_ensayo03_Clon.bit_longitud = Me.bit_longitud
        obj_ensayo03_Clon.bit_transversal = Me.bit_transversal
        obj_ensayo03_Clon.bit_superficieplana = Me.bit_superficieplana
        obj_ensayo03_Clon.int_exesonivelregistro = Me.int_exesonivelregistro
        obj_ensayo03_Clon.int_registrolongitud = Me.int_registrolongitud
        obj_ensayo03_Clon.int_resultado = Me.int_resultado
        obj_ensayo03_Clon.img_croquis = Me.img_croquis
        obj_ensayo03_Clon.str_croquisnotas = Me.str_croquisnotas
        obj_ensayo03_Clon.str_notas = Me.str_notas
        obj_ensayo03_Clon.int_informeestado = Me.int_informeestado
        obj_ensayo03_Clon.int_idregistro = Me.int_idregistro
        obj_ensayo03_Clon.int_idevaluador = Me.int_idevaluador
        obj_ensayo03_Clon.int_idinspector = Me.int_idinspector
        obj_ensayo03_Clon.dte_evaluadorfecha = Me.dte_evaluadorfecha
        obj_ensayo03_Clon.dte_inspectorfecha = Me.dte_inspectorfecha
        obj_ensayo03_Clon.int_idusuariorealizado = Me.int_idusuariorealizado
        obj_ensayo03_Clon.int_idusuarioingresado = Me.int_idusuarioingresado
        obj_ensayo03_Clon.col_Items = Me.col_Items
        Return obj_ensayo03_Clon
    End Function

    Public Function imageToByteArray(ByVal imageIn As System.Drawing.Image) As Byte()
        If Not IsNothing(imageIn) Then
            Dim ms As New IO.MemoryStream()
            imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            Return ms.ToArray()
        End If
        Return Nothing
    End Function

    Public Function byteArrayToImage(ByVal byteArrayIn As Byte()) As Image
        Dim ms As New IO.MemoryStream(byteArrayIn)
        Dim returnImage As Image = Image.FromStream(ms)
        Return returnImage
    End Function
End Class


